﻿Imports Microsoft.VisualBasic

Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports tiendaRegalos



'''<summary>
'''This is a test class for UsuarioNegocioTest and is intended
'''to contain all UsuarioNegocioTest Unit Tests
'''</summary>
<TestClass()> _
Public Class UsuarioNegocioTest

    Public Sub insertarTest()

        Dim negocio As New UsuarioNegocio()

        Try
            Dim modelo = negocio.insertar(1201, 1210, "A", "B", "C", "D", 70653034, "F", "S", "R", 102030, 2981201, 1254)

            Console.Write(modelo.idUsuario)

            'Assert.AreEqual(13, modelo.idUsuario)

        Catch ex As DAOExcepcion
            Assert.Fail(ex.ToString())
        End Try

    End Sub

End Class
